home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / WC.LSP < prev    next >
Text File  |  1992-09-13  |  1KB  |  34 lines
  1. ;Draw a wall from its center point. (only draws one at a time)
  2. ;
  3. ;
  4. (defun dtr (angg)
  5. (* pi (/ angg 180.0)))
  6. (setq  oer  *error*  *error*  err)
  7. (pre)
  8. (if (= *ly nil)(setq *ly "E")
  9. (setq ly *ly))
  10. (SETQ ly(getstring (strcat "\n(E)xterior. (I)nterior. < ")
  11. (PROMPT *ly)
  12. (prompt "\ >")
  13. (princ)))
  14. (if(= ly "")(setq ly *ly)(setq *ly ly))
  15. (if(or(= ly "E")(= ly "e"))(setq ly "ew"))
  16. (if(or(= ly "I")(= ly "i"))(setq ly "iw"))
  17. (command"layer" "s" ly "")
  18. (if (= do1 nil)(setq *do1 4.5))
  19. (initget (+ 2 4))
  20. (setq do1(getdist(strcat "Enter wall thickness <" (rtos *do1) ">: ")))
  21. (if (= do1 nil)(setq do1 *do1)(setq *do1 do1))
  22. (SETVAR "CMDECHO" 0)
  23. (setq wt(/ do1 2))
  24. (setq pt1 (getpoint "\nPick starting point :  "))
  25. (if (= pt1 nil)(WRF))
  26. (setq pt2 (getpoint pt1 "\nNext point  "))
  27. (if (= pt2 nil)(err))
  28. (setq ang (angle pt1 pt2))
  29. (setq pta (polar pt1 (- ang (dtr 90)) wt))
  30. (setq ptb (polar pt2 (- ang (dtr 90)) wt))
  31. (command "line" pta ptb "")
  32. (setq pt5 (polar pt1 (+ ang (dtr 90)) wt))
  33. (setq pt6 (polar pt2 (+ ang (dtr 90)) wt))
  34. (command "line" pt5 pt6 "")(post)(princ)